home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / grphwiz.dxr / 00154_column header subtable.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  863 b   |  32 lines
  1. property ancestor, pIsVisible
  2.  
  3. on new me, tableName, castName, tableChannel, tableLoc, vSlider, upButton, downButton, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("subtable object"), tableName, castName, tableChannel, tableLoc, vSlider, upButton, downButton, descendant)
  6.   else
  7.     ancestor = new(script("subtable object"), tableName, castName, tableChannel, tableLoc, vSlider, upButton, downButton, me)
  8.   end if
  9.   return me
  10. end
  11.  
  12. on showMe me
  13.   if pIsVisible then
  14.     set the loc of sprite the pTableChannel of me to me.pTableLoc
  15.     updateStage()
  16.   end if
  17.   return me
  18. end
  19.  
  20. on setIsVisible me, isVisible
  21.   pIsVisible = isVisible
  22.   return me
  23. end
  24.  
  25. on trackMouse me
  26.   setThumb(me.pVSlider, 1)
  27.   startCell = cellToPoint(me._me, sprite(me.pTableChannel).mouseCell)
  28.   setAt(startCell, 2, 0)
  29.   trackMouse(me.pSuperTable, startCell)
  30.   return me
  31. end
  32.